Option Explicit
Sub F_Sample052()
   'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    Dim myCon     As New ADODB.Connection
    Dim myCmd     As New ADODB.Command
    Dim myRst     As ADODB.Recordset
    myCon.Provider = "SQLOLEDB"				'Ѫ
    'wnsA
    myCon.Open _
    ConnectionString:="Data Source=SERVERNAME;Initial Catalog=mysample;", _
    UserID:="sa", PassWord:=""
    Set myCmd.ActiveConnection = myCon
    'HSQLӫwno
    myCmd.CommandText = "SELECT count(*) FROM F_Tbl01 where O ='B'"
    myCmd.CommandType = adCmdText
    Set myRst = myCmd.Execute
    Debug.Print myRst.Fields(0).Value
    myRst.Close
    myCon.Close
    Set myCmd = Nothing						'
    Set myCon = Nothing
End Sub
